home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / onkey.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-05-14  |  1.8 KB  |  84 lines
  1. G4C
  2.  
  3. ;          xOnkey, for extra info on (nearly) every keypress
  4.  
  5. WINBIG 117 51 460 140   "OnKey.gc"
  6. WinType 11110001
  7. usetopaz
  8.  
  9. ; ---- Decorations
  10.  
  11. CTEXT 357 3   '  OnKey  ' topaz.font 11 3 2 000
  12. BOX 0 0 460 140   OUT RIDGE
  13. BOX 60 78 118 52   OUT RIDGE
  14. BOX 200 78 118 52   OUT RIDGE
  15.  
  16. xonLoad 
  17.     GuiOpen OnKey.gc
  18.  
  19. xonClose
  20.     GuiQuit Onkey.gc
  21.  
  22. ; ---- Explanations
  23.  
  24. TEXT 20 10 100 10   'Press any key' 18 NOBOX
  25. TEXT 20 23 100 10   'The boxes will (nearly always) tell you :' 42 NOBOX
  26. TEXT 30 35 100 10   'If it was a RAW or a VANILLA key' 32 NOBOX
  27. TEXT 30 44 100 10   'The letter, if it was a VANILLA key' 35 NOBOX
  28. TEXT 30 53 100 10   'Its code number' 16 NOBOX 
  29. TEXT 30 62 100 10   'The qualifier code - of interest only to addicts.' 50 NOBOX 
  30.  
  31. ; The qualifier codes distinguish between Shifted/unshifted,
  32. ; Left/Right Alt, Plain/Numeric key pad, and so on.
  33.  
  34. ; No response here from Tab key or Backspace key.
  35. ; Try setting debug on for extra insight into the mysteries.
  36.  
  37. ; ---- Boxes to display results
  38.  
  39. TEXT 80 80 80 10   '' 10 NOBOX
  40.     gadid 1
  41. TEXT 80 92 80 10   '' 10 BOX
  42.     gadid 2
  43. TEXT 80 104 80 10   '' 10 BOX
  44.     gadid 3
  45. TEXT 80 116 80 10   '' 10 BOX
  46.     gadid 4
  47. TEXT 220 80 80 10   '' 10 NOBOX
  48.     gadid 5
  49. TEXT 220 104 80 10   '' 10 BOX
  50.     gadid 6
  51. TEXT 220 116 80 10   '' 10 BOX
  52.     gadid 7
  53.  
  54. ; ---- If a VANILLA key is pressed
  55.  
  56. xonKey #V
  57.     update OnKey.gc 1 "VANILLA"
  58.     update OnKey.gc 2 $$VANKEY.LETTER
  59.     update OnKey.gc 3 $$VANKEY.CODE
  60.     update OnKey.gc 4 $$VANKEY.QUAL
  61.  
  62.     ;      Clear the RAW boxes
  63.  
  64.     update OnKey.gc 5 ''
  65.     update OnKey.gc 6 ''
  66.     update OnKey.gc 7 ''
  67.  
  68. ; ---- If a RAW key is pressed
  69.  
  70. xonKey #R
  71.  
  72.     update OnKey.gc 5 "RAW"
  73.     update OnKey.gc 6  $$RAWKEY.CODE
  74.     update OnKey.gc 7  $$RAWKEY.QUAL
  75.      
  76.     ;      Clear the VANILLA boxes
  77.  
  78.     update OnKey.gc 1 ''
  79.     update OnKey.gc 2 ''
  80.     update OnKey.gc 3 ''
  81.     update OnKey.gc 4 ''
  82.  
  83.  
  84.